C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


**FILE**1D**LXCOM 


MMMM MMMM 
00 00 MMMM MMMM 


—_ 

y 

= 

=< 
AOOOOOOOOMOO 
AOOOOOOOOO 

So 

o 

So 

So 


00 00 MM MM eeee 
LL 00 0 MM MM eeee 
LLLLLLLLLL XX XX cccccccc 000000 MM MM seve 
LLLLLLLLLL XxX XX ccccccce 000000 MM MM eoes 


LLLLLLLLLL 


LL XX KK cccccccc 000000 MM MM 
LL Xx XX cccccccc 000000 MM MM 
00 00 
LLLLLLLLLL 


WAWANAA AINA PONPONONUNI NUNN 2 Ow a 


DWONOULSWN (“OO ONAULS WN OODNAUSWN(OOONOU SW 


40 


3 
EDTSLXCOM = execute a Line-mode command 18-Sep-19 4 93:93:19 VA 
2:23:4 I 


Bliss-32 V4 Page 1 
14-Sep-1984 D $ . ) 


X-11 ss-3 ets 
SKSVMSMASTER: CEDT.SRCJLXCOM.BLI;1 (1 


| 
8° 1 ZTITLE “EDTSLXCOM = execute a Line-mode command’ 
0 § MODULE EDTSLXCOM ( ! Execute a Line-mode command | 
tg JDENT = 'v04-000' ! File: LXCOM.BLI Edit: JBS1020 
Boe? : BEGIN | 
0007 1 leutenneeannnntentnanennneenenteneneoteereteettrerentnnenentnennettnnnnntens 
:* a 
0009 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ‘ | 
0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
Bat) } i? ALL RIGHTS RESERVED. * 
. *® 
ooi8 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0014 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
9017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0018 is TRANSFERRED. « | 
° ® 
0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
OOS) 1 !® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
poss : 7 CORPORATION. * | 
.* % 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ot $4 : ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ® 
0027 1 !* * 
it : Saadallah cineca i asian nc hin ca te at 
0030 1 
0031 1 !+4+ 
6036 : } FACILITY: EDT -=- The DEC Standard Editor 
0054 ABSTRACT: 
sit) : Execute a Line-mode command. Most of the work is done by external routines. 
0038 : ENVIRONMENT: User mode 
9040 ; AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
0042 1 | MODIFIED BY: 
00435 1! 
0044 1 ! 1-001 - Original. DJS 10-MAR-81. This module was created by 
0045 1! extracting the routine EDTSSLNM_CMD from EXEC.BLI. | 
R266 1 ! 1-002 - Fix module name. JBS 23-Mar-1981 
0047 1 ! 1-003 - Make sure the routine names start with EDT$$. JBS 31-Mar-1981 
0048 1 ! 1-004 - Use the ASSERT macro. JBS 01-Jun-1981 
0049 1 ! 1-005 - Use the new message codes. JBS 04-Aug-1981 
050 1 ! 1-006 = Add a synonym for the entry point name, so the overlay analyzer 
051 1! can be told to ignore it, and make sure the EXTEND module 
O36 & s_ in memory before returning. JBS 12-Mar- 
053 1 ! 1-007 - Revise the overlay structure, since the meth utlined above 
054 1! can cause an undefined propel. JBS 15-Mar- 3 
0055 1 ! 1-008 - Remove the reference to EDTS$LOAD_EXTEND. Jos eougr 1982 
9028 1 ! 1-009 - Set stay Lag command is a write. STS 10-May-198 
057 1 ! 1-010 - Bypass EDTSSCNM_HLP by calling EDTSSOUT_HLP directly. JBS 03-Jun-1982 
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83 1! 1-011 = Set EDT$$G_TXT qyrece for Gonnends that gon, - “198 aes 
1 ! 1-012 = Set sta ag f command is a print. STS 1 sg | 

060 1 | 1-918 = Modify the ting of message lags. SWB. 23-J 

061 1 ! 1-014 = Use EDT SENT. se F “ve : ragtte out FMTB * inf sent we don avg 

062 1! to set EDTSSG ONSCR in most cases. ges 03-5 jute -1 ge 

065 1! 1-015 = Bove, setts n9.9 oF EDT $6. Oto. he routines calle -Jul-198 

064 1: 1- 1g - Se EDT$$G_SCR fhe in creche va y if it succeeds. JBS beyurs =1982 

065 1! 1-017 = Renove EDTS$G_SCR_CHGD, the new screen logic does not need it. JBS 09-Oct-1982 
0066 1! 1-318 - Put code for ostsscre posiret. in Line. STS 11-Oct-1982 
0067 1! 13) - Remove forced setting of G NSCR for jogert and replace. SMB 14-Dec-1982 
0069 ! Ry 20 - Correct a typo in a Loot "3B 02-May-1198 

070 1 
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| EDTSLXCOM EDTS _XCOM = execute a Line- 0-74 
04-000 D BO sere Losationsed sppepem ECEDESSRCSLxcOM.BLI;1 °° (25. 


; f org ] XSBTTL *Declarations' : 
ig | i 1 ! TABLE OF CONTENTS: : 
; 074 1! . 
.. 2 Bee 1 . 
; a4 O76 | REQUIRE "EDTSRC: TRAROUNAM'; ; 
. 0816 1 FORWARD ROUTINE : 
| 3 4 Fate 1 EDTSSLNM_CMD : NOVALUE; ! Execute the last parsed command : 
: 8B 519 1! | ; 
; ¢ é 0 1 ! INCLUDE FILES: ° 
: 684 Be e ‘ 
,; 85 05 1 ; 
; «86 0525 1 REQUIRE "EDTSRC:EDTREQ'; | ; 
OF 06 1 : 
; 0659 1! | ‘ 
3 89 0660 1 ! MACROS: : 
:; 90 0661 1! ; 
; 0662 1! NONE ; 
;.% 06635 1! : 
3 Y 0 1 ! EQUATED SYMBOLS: 3 
; | 694 0665 1! : 
; 0666 1 !+ ; 
; 0667 1 ! The EXTEND change-mode command uses this symbol indirectly to refer : 
s 97 0668 1 ! to this module, so the reference can be excluded from : 
s 0669 1 ! the overlay analysis. : 
: 99 0670 1 !- : 
: 100 0671 1 : 
: 101 0672 1 GLOBAL BIND : 
3 105 0673 +1 ROUTIN 3 
; 3 0674 1 EDTSSLNM_CMD_NOOVERLAY_REF = EDTSSLNM_CMD; . 
: 104 0675 1 | 
; 105 0676 1! 
; 106 0677 1 ! OWN STORAGE: 
: 107 0678 1! 
; 108 0679 1! NONE 
: 109 0680 1! 
; 110 0681 1 ! EXTERNAL REFERENCES: 
; 111 0682 1 | 
112 06835 1! In the routines | 
| 
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XCOM = execute a Line-mode command 18-Sep-19 4 94:03:19 VAX-11 Bliss-32 gl 
LNA_CMD = execute a Line-mode command 14-Sep-1984 12:235:4 DISKSVMSMASTER: CEDT.SRCJLXCOM.BLI;1 
ZSBTTL "EDTSSLNM_CMD = execute a Line-mode command’ 
GLOBAL ROUTINE EDTSSLNM_CMD ( ! Execute a Line-mode command 
COM_START ! Command to execute 


) :"NOVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 
This routine executes the command which was last parsed. 
It is assumed that the command is described in the first 
node on the parsing stack. 
FORMAL PARAMETERS: 
COM_START Node block containing the command to execute 
IMPLICIT INPUTS: 


EDT$$G_RCOV_MOD 
EDT$$Z_PA_STK The semantic stack containing the command to be executed 


IMPLICIT OUTPUTS: 
EDT$$G_EDIT_MOD 


+ 


PROPOR ONOMONONONOPONPONUPDNURD 2 tt tt 9 9 es 


EDTSS$A_EXE_CURCMD 
EDTS$$Z_EXE_SBLK 
EDT$$G_EXE_SBITS 
EDTSS$G_EXE_QRYQUIT 
EDTS$G_EXITD 
EDT$$G_TXT_ONSCR 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
MANY 

BEGIN 
exten ROUTINE 

EDTS$SC_NONREVID ' Turn off reverse video 
EDTS$STOP_WKINGMSG i Turn off timer AST 
EDT$$CLR_CMD : NOVALUE ' Process the CLEAR command 
EDTSSDEFR_CMD : NOVALUE , ' Process the DEFINE KEY command 
EDTSSDEFM_CMD : NOVALUE, ' Process the DEFINE MACRO command 
EDTSSDEL_CMD : NOVALUE, ! Process the DELETE command 
EDTSSMAC_CALL, ' Invoke a macro 
EDTSSEXI CMD : NOVALUE ' Process the EXIT command 
EDTS$FILC CMD : NOVALUE, ' Process the + command 
EDTSSFMT_CRLF, ' Terminate a Line 
EDTSSFMT_MSG, ' Put the text of a message in the format buffer 
EDTSSOUT_HLP, ' Get help 


<m 


| 
ad 


F 


3 
EDTSLXCOM EDT$ KCon - execute a Line-mode command 16-Sep-19 VAX-11 Bliss-32 V4.0-7 Page 5 
Ou 000 EDTSSLNM_CMD = execute a Line-mode command 14-Sep sats 1 9}: 83: 1 DISKSVMSMASTER: choi sac LXCOM.BLI;1 ° (3) 
; 171 741 EDTSSINCL od : ee’ ' Process the INCLUDE command 
: Mg re6 EOTSSOEL“INE, | Nenu | Delete strange of Uines | 
3; 976 744 EDTSSINS_ 1X OVALUE, | Insert text” | 
mo. STERGYETT AGM oll Qiue j pesos is motte tage ome 
3 ‘ u 
; 177 149 pp iseenal Epps: NOVAC CUE: ' Process the PRINT command 
| SIRE gue. | Brocess the Sef conend’ om 
: 181 0751 EDTSS$SHW"CMD : NOVACUE? i Process the SHOW command 
3 18 o7 ¢ EDTSSLN_SUBCMD : NOVALUE ' Process the SUBSTITUTE command 
ino 7 EDTS$SUB NXTCMD : NOVA ue, ' Process the SUBSTITUTE NEXT command 
: Rs ME ED TSSTY PHB e NOVA Cee | reieet tee (Fl seen 
; 138 0756 EDTSSWR_CMD NOVALUE: i Process the WRITE command 
: 188 0758 EXTERNAL | 
: 189 0759 EDTS$G_EDIT_MOD, 
; 190 0760 EDTS$$G_RCOV_MOD 
. 13) $70) att TXT ONSCR. ! Use ‘Press return to continue’’ after this command is done 
; 198 $768 EDTSSA “EXE_CURCMD : REF NODE_BLOCK, ! Pointer to the current command. 
; 13° 87 e EO Tesc- RNGIFRSTUN,” ! Quit flag for /QUERY operations. 
: 196 0766 EDT$S$A-CUR-BUF : REF TBCB BLOCK, 
: 197 0767 EDT$$Z_RNG_ ORI GPOS : POS_BLOCK 
: 198 0768 EDTS$$G_EXE_SBIT S. ! The options switches. 
3 138 8768 EDT$$Z_EXE_SBLK : REF NODE_BLOCK; ' The option switch value block. 
; 01 O77 MESSAGES ((INVOPTCOM)); 
; 208 Ors 3 | ‘Define the table containing valid options for each command. 
: 205 0775 
: 206 0776 
3; 207 0777 § NO OPT_TABLE = UPLIT (BYTE (¢ 
3; 208 0778 0, ! Options for null command 
; 209 0779 0, ! Options for change 
: 210 0780 OPT_DUPL+OPT_QUERY, ! Options for cop 
3 211 878) 0 ! Options for define 
; 12 07 : OPT_QUERY i Options for delete 
> 1 7 PT~SAVE+OPT_SEQ, i Options for exit 
: 14 8? 4 i ' Options for find 
: 215 785 ‘ ! Options for include 
: 216 7 0 ! Options for insert 
> 217 7 PT_QUERY, i Options for move 
3 18 788 ! Options for print 
3; 29 789 PT_SAVE, ! Options for quit 
: 220 790 ! Options for replace 
> 221 291 PT_SEQ, Options for resequence 
3 ° ‘ ns for se 
5 5 79 } Options for show 
3 226 794 OPT_QUERY+OPT_NOTYP+ 
3 5 795 OPT BRIEF, ! Options for SUBSTITUTE 
: $8 79 OPT_BRIEF+OPT_STAY, ! Options for type 
3 79 OPT_SEQ, ! Options for write | 
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XCOM = execute a Line-mode command 
C - execute a Line-mode command 


PT_NOTYP, 


)): VECTOR CLAST_COM, BYTE); 


1 

1 

! Options for subs next 
' Options for hel 

‘ verify 

} Options for Sep, eddust 
i Options for def macro 
! Options for mac call 


EDTSSA_EXE_CURCMD = .COM_START; 


The top level had better be a command code. 


ASSERT (.EDTSSA_EXE CURCMD CNODE ig RA cpa 


EDT$$Z_EXE_SBLK™= .EDTSSA_EXE_CURCMD 


WITS 


i (,EDT$$Z_EXE_SBLK NEQ 0) 


N 
BEGIN 


IF (<EDTS$Z_EXE_SBLK CSW_BITS] AND ( NOT .OPT_TABLE C.EDTS$A_EXE_CURCMD CCOM_NUM]])) NEQ 0) 


BEGIN 
EDTSSFMT_MSG 
RETURN; 


EDT$$G_EXE_SBITS 


ELSE 


EDT$$G_EXE_SBITS 
EDTS$G_EXE_QRYQUIT = 


(EDT$_INVOPTCOM) ; 


= .EDTS$Z_EXE_SBLK CSW_BITS); 


CASE -EDTSSA_EXE_CURCMD CCOM_NUM] FROM COM_NULL TO LAST_COM OF 


uno 


TOP_WKINGMSG (); 
C_NONREVID (); 
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SLNE CMD = execute a Line-mode command 12-808: 3B 5:93:) ST EKSUMGHASTER-CEDT SRCILXCOM.BLI:1 ” (3) 


EDTSSTY_CMD (); 
END; 


CCOM_NULL) : 


BEGIN 
EDTSSSTOP_WKINGMSG (); 
EDTSSNULL_CHD Q; 


coo 
uw 
OOooCoo°ceo mm 
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END; 

CCOM_ INCLUDE) : 
EDTSSINCL_CMD (); 
END; 


: 589 
3 90 
: $3 
: 29 
: 294 6 CCOM_FIND) : 
: 295 BEGIN 
; 96 EDT$$G_RNG_FRSTLN = 1; 
> 29 6 EDTSSCPY_MEM (POS SIZE, .EDTS$A_CUR_BUF FDTSSZ_RNG_ORIGPOS) ; 
; 38 EDTSSRNG_REPOS (,EDTS$A_EXE_CURTMD [CRANGE1]); 
; 300 F 
: 301 8 7 CCOM_SUBS) : 
3 O 7 BEGIN 
: 30 87 EDTSSLN_SUBCMD (); 
3 Be 0875 END; 
: 087 CCOM_EXIT) : 
; $ 0 6 BEGIN 
; 08 9 28 EDTSSEXI_CMD 0; 
: 310 0880 : 
: 311 O88) CCOM REPLACE) : 
ig 08 ; BEGIN 
; 14 Bae IF EDTSSDEL_LNS () THEN EDTSSINS_TXT (); ; 
: 16 
4 


Sete 


3 


91 
38 
4, CCOM waited : 
EDTS$G_EXE_ SBITS<OPB_STAY> = 1; ! write never changes the position 


S SOO SOo00 
Le 


EDTSSWR_CMD (); 
END; 


CCOM_SUBS_NEXT) : 
EDTSS$SUB_NXTCMD (); 
END; 


AE UNV OOO NOULWN—O 


CCOM_HELP) : 
Ni 


EDT$$SC_NONREVID (); 
EDT$SOUT_HLP (.EDTS$a_EXE_CURCMD CFILSPEC], .EDTSSA_EXE_CURCMD CFSPCLENI, 1); 
EDT$$G_TRT_ONSCR = 1 
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FO4-000 EDTSSUNR, CMD - execute a Line-mode command at ae ts 1 95:93:19 DL SKSVMGMASTERSCEDT  SRCTLXCOM.BLI:1 ° (3) 
: 34 913 BEGIN 3 
; % 91 EDTSSSET_CMD (); : 
Her a EN Beh 
; 91 CCOM_SHOW) : : 
; 23 319 BEGIN ; 
; 348 918 EDTS$SHW_CMD (); : 
Py 4 313 END; ‘ 
; 351 901 (COM, CHANGE) : 
; 35 9 BEGIN ; 
; 2 9 '¢ 3 
3 4 924 ! Position to the first Line of the specified range ; 
; 2? 2 5 : and set the current mode to change mode. ; 
; 357 $8 5 ‘ EDT$$G_RNG_FRSTLN = 1; : 
; 28 09 § EDTSSCPY_MEM (POS_SIZE, .EDTSS$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); : 
: 60 09 9 IF EDTSSRNG_REPOS (.EDTS$A_EXE_CURCMD CRANGE1]) THEN EDTS$$G_EDIT_MOD = CHANGE_MODE; : 
; 6¢ 0938 END; : 
i 364 0934 CCOM MOVE) : : 
; 366 0956 EDTSS$MOVCPY_CMD (1); ; 
i 38 0936 oe 
; 69 0939 CCOM COPY) : ; 
: 371 0941 EDT$SMOVCPY_CMD (0); : 
OBR eo : 
i 37h 944 CCOM_DEF INE) : : 
: 376 946 EDTSSDEFK_CMD (); ; 
mo BY = ; 
i 39 349 CCOM PRINT] : 3 
: 381 951 EDT$$G_EXE_SBITS<OPB_STAY> = 1; ! print never changes the position : 
; Be 95¢ EDTSSPRNT_CMD (); ; 
; 38 Baez END; : 
; 53 55 CCOM_RESEQ) : ; 
; 996 BEGIN ; 
: 387 95 EDT$S$RSEQ_CMD (); : 
: 389 335 oa 
; 390 960 CCOM_TADJJ : 
: 391 961 BEGIN ; 
; 3 96¢ EDT$STSADJ_CMD (); : 
3 7 96 END; : 
: 395 965 [COM FILL 
; 38 366 BEGIN ; 
; 39 96 EDTSSFILL_CMD <); : 

; 398 968 END; 


3 
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vous EDTSSUNR, CMD = execute a Line-mode command 12286871388 3 3 

; 399 989 

: 400 970 CCOM, per gitcd : 

; 401 971 a 

; 40 ars eDY SDEFM_CMD (); 

; 40 97 END 

: 404 974 

; 405 975 CCOM _MAC_CALL) : 

3 $08 44) Q 

; 40 344 EDTSSMAC_CALL (.EDTSSA_EXE_CURCMD CRANGE1)); 

; 408 978 END; 

; 409 979 

; 410 444 CCOM_CLEAR) : 

s 411 981 

3 rh 34-04 EDTSSCLR_CMD (); 

3 «641 098 END; 

; 414 0984 

; 415 84 COUTRANGE) : 

; 416 98 N 

3: 417 098 ASSERT (0); 

; 418 0988 END; 

3; 419 0989 TES; 

; 420 990 

3; 421 991 IF .EDT$$G_EXITD 

3; «6 ; 099 THEN 

; 42 099 

5 ose Boge IF .EDTS$G_EXE_SBITS<OPB_SAVE> THEN EDT$$G_EXITD = 

; 426 0996 IF .EDTS$G_RCOV_MOD THEN EDT$$G_EXITD = 0; 

: 427 $997 2 

; 428 0998 #1 END; 
TITLE 
. IDENT 
-PSECT 

00 10 00 40 02 00 $e 00 00 00000 P.AAA: .BYTE 

00 10 84 OE 00 0000 
OPT_TABLE= 

eEXTRN 
eEXTRN 
~EXTRN 
~EXTRN 
~EXTRN 
eEXTRN 
eEXTRN 
eEXTRN 
-EXTRN 
~EXTRN 
~EXTRN 
~EXTRN 
EXTRN 
~EXTRN 
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3; 


! of routine EDTSSLNM_CMD 
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\V04-000\ 
_EDTSCODE.NOWRT, SHR, PIC,2 
0, 0 34, 0. 0, 0, 0, 2, 0 64, 0. 
16.6, 0; 14, 2126; 16,°6,.6,°6."6,°0> 8: = | 

P.AAA 
EDT$$SC_NONREVID 
EDTSSSTOP_WKINGMSG 
EDTSS$CLR_CMD, EDTSSDEFK_CMD 
EDTSSDEFM_CMD, EDTS$SDEL~CMD 
EDTSSMAC_CALL, EDTSSEXI~CMD 
EDTSSFILC CMD, EDTSSFMT-CRLF 
EDISSFAT ASG EDTSSOUT ALP 
EDTSSINCC_CMO, EDTSSINS_CMD 
EDTSSDEL_CNS, EDTSSINS_TXT 
FDTSSMOVCPY_ CMD 
EDI NULL_CAD EDTSSPRN RNT 
RHEL ag Eo Ni 
EDTS$$LN_SUBCMD, EDTass05" NXTCMD 
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EDTSLXCOM EDTSLXCOM = execute a Line-mode command Sep X-11 ss-32 V4.0-74 Page E 
04-000 EDTSSLNM_CMD = execute a Line-mode command 1228 Sep 71382 93: 83; 49 SK$V nen STER: CE HBT SRCSLXCOM.BLI;1 ’ HS v0 

7B 11 00184 RB 4 $ : 083 ; 

000000006 00 00 fe 186 24%: CALLS EDTS$SHW_CMD : 091 ; 

7 1 180 25$:  6RB 4 4 ; 083 ; 

000000006 90 DO OO18F 26$: MOVL # goTS86_ay RNG. FRSTLN : 09 ; 

000000006 00 p 196 MOVL. €eDf$ AA CUR + 0928 ; 

000000006 00 60 i 19 MOVC3) #14, (RO), “pprgss _RNG_ORIGPOS : 

04 A6 DD OOIA PUSHL  4(R6) + 0930 ; 

000000006 00 Q} FB 1A CALLS #1, EDTS$SRNG_REPOS ; : 

64 E9 OO1AF 27S: LBC =—s«aRO,_-44$ : ; 

000000006 90 D4 1Be CLRL ED $$G_EDIT_MOD : ; 

C 11 0018 88: RB 44$ + 0832 : 

1 pp 1BA 29$:  PUSHL #1 + 0936 ; 

2 11 001B8¢ RB 31$ ; : 

E 04 0018 308: CLRL = = (SP) + 0941 ; 

000000006 00 01 FB OO1CO 31$: CALLS #1, EDTSSMOVCPY_CMD : ; 

4D 11 O001C BRB 44$ ; 0832 ; 

000000006 00 00 re 01¢9 a8: CALLS #0, EDTSSDEFK_CMD + 0946 ; 

44 1 109 $: BRB 44 + 0832 ; 

67 80 8F 88 001D2 34$:  B1SB2 #128 EDT$$G_EXE_SBITS + 0951 ; 

000000006 00 9 FB 00106 CALLS EDTSSPRNT_CMB > 095 ; 

11 00100 BRB at : 083 ; 

000000006 00 00 FB OO1DF 35$ CALLS #0, EDTSSRSEQ_CMD > 095 ’ 

— 11 O16 BRB 44$ 3 0832 ; 

000000006 00 6 FB OO1E8 36$: CALLS #0, EDTSS$TSADJ_CMD + 096 ; 

11 OO1EF BRB 44$ + 083 : 

000000006 00 0 FB OO1F1 37$: CALLS #0, EDTSSFILL_CMD ; 096 : 

1¢ 11 001F8 38$: BRB 44$ ; 0832 ; 

000000006 00 09 FB OOIFA 39$: CALLS #0, EDTSSDEFM_CMD : 097 ; 

13. 11 00201 40$:  6RB 44$ : 083 ; 

04 Ad DD 00203 41$:  PUSHL  4(R6) + 097 ; 

000000006 00 01 FB 00206 CALLS #1, EDTSSMAC_CALL ; : 

07 11 00200 428: BRB 4a$ : 0852 ; 

000000006 00 00 FB O20F 43$: CALLS #0 EDTSSCLR_CM CHD : 098 ; 

07 69 £9 00216 44$:  BLBC tots G EXIT D> 4 + 0991 ; 

03 67 06 E1 00219 BBC AY EDTS$G EXE, sB1Ts, 45$ + 0994 ; 

69 DO 00210 MOVL EDT$$G EXIT ; F 

02 000000006 00 €9 00 9 45%:  BLBC eDtssa. RCOV_MOD, 46$ + 0996 : 

69 04 00 CLRL —s« EDT $$G~EXITB : ; 

4 00229 46$: RET : 0998 3 

; Routine Size: 554 bytes, Routine Base: _EDTSCODE + OOTA ; 


n 3 
EDTSLXCOM EDTSLXCOM = execute a Line-mode command 16S 4 VAX-11 Bliss-3 E 
ba 00 EDTSSUNR, CMD - execute a Line=node command 14-$ ne 1984 9}: $3: 9 DI SKSUMGMAS TERS CLOT OSRCILXCOM, BLI;1 rom (3 Vv 
3; 6 1001 1 END ! of le EDTSLXCOM 
o38 1008 } of module EDT$LXCO 
434 1003 0 ELUDOM 


EDTSSLNM_CMD_NOOVERLAY_REF == 
EDTSSLNM_CMD 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 580 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
| 
| 
| 
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; ecoceees Syabols eoceeeee Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28: CEDT.SRCIJEDT.L32;1 377 122 32 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1IS$:LXCOM/OBJ=OBJ$:LXCOM MSRC$:LXCOM.BLI/UPDATE=(ENH$:LXCOM) 
; Size: 554 06°38. 3 + 26 data bytes 
Run Time: 


; Elapsed Time: 80; ig? . 
3; Lines/CPU Min: Site 

; Lexemes/CPU-Min: 454 

; Memory Used: 160 pages 
3; Compication Complete 
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